home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / aktiv filter (.txt) next >
Commodore BASIC  |  2022-10-26  |  2KB  |  64 lines
  1. 100 rem berechnung von aktiven filtern
  2. 110 pi=3.1415926536
  3. 120 print"[147]"chr$(14)tab(5)"[194]erechnung von aktiven [198]iltern"
  4. 130 print"   [212][146]iefpass, [200][146]ochpass oder [194][146]andpass ?"
  5. 140 geta$:ifa$=""then140
  6. 150 ifa$="t"then1000
  7. 160 ifa$="h"then2000
  8. 170 ifa$="b"then3000
  9. 180 goto140
  10. 1000 rem berechnung tiefpass
  11. 1010 print"[147][212]iefpass:":print
  12. 1020 input"[199]renzfrequenz [k[200]z]:";fo
  13. 1030 input"[214]erstaerkung :";v
  14. 1040 input"[203]ondensator [195]2 [n[198]]:";c2
  15. 1050 print
  16. 1060 fo=fo*10^3:c2=c2*10^(-9):v=int(v)
  17. 1070 r1=(sqr(2)/(4*pi*fo*c2*v))
  18. 1080 print"[215]iderstand [210]1 :";int(r1);"[207]hm"
  19. 1090 r2=int(v*r1/v+1)
  20. 1100 print"[215]iderstand [210]2 :";int(r2);"[207]hm"
  21. 1110 r3=v*r1
  22. 1120 print"[215]iderstand [210]3 :";int(r3);"[207]hm"
  23. 1130 c1=2*c2*(v+1)*10^9:c2=c2*10^9
  24. 1140 print"[203]ondensator [195]1 :";c1;"n[198]"
  25. 1150 print"[203]ondensator [195]2 :";c2;"n[198]"
  26. 1160 goto4000
  27. 2000 rem berechnung hochpass
  28. 2010 print"[147][200]ochpass:":print
  29. 2020 input"[199]renzfrequenz [k[200]z]:";fo
  30. 2030 input"[214]erstaerkung :";v
  31. 2040 input"[203]ondensatoren [195]1=[195]2 [n[198]]:";c1
  32. 2050 print
  33. 2060 fo=fo*10^3:c1=c1*10^(-9):c2=c1:v=int(v)
  34. 2070 r1=int(sqr(2)/(2*pi*fo*c1*(2+1/v)))
  35. 2080 print"[215]iderstand [210]1 :";r1;"[207]hm"
  36. 2090 r2=int((v+1)/(sqr(2)*pi*fo*c1))
  37. 2100 print"[215]iderstand [210]2 :";r2;"[207]hm"
  38. 2110 c3=(c2/v)*10^9:c1=c1*10^9
  39. 2120 print"[203]ondensator [195]1 :";c1;"n[198]"
  40. 2130 print"[203]ondensator [195]1 :";c1;"n[198]"
  41. 2140 print"[203]ondensator [195]3 :";c3;"n[198]"
  42. 2150 goto4000
  43. 3000 rem berechnung bandpass
  44. 3010 print"[147][194]andpass:":print
  45. 3020 input"[205]ittenfrequenz [k[200]z]:";fo
  46. 3030 input"[194]andbreite :";b
  47. 3040 input"[214]erstaerkung :";v
  48. 3050 input"[203]ondensatoren [195]1=[195]2 [n[198]]:";c1
  49. 3060 print
  50. 3070 fo=fo*10^3:c1=c1*10^(-9):c2=c1:v=int(v)
  51. 3080 r1=int(1/(2*pi*c1*b*v))
  52. 3090 print"[215]iderstand [210]1 :";r1;"[207]hm"
  53. 3100 r2=int(1/(((2*fo^2)/b^2-v)*2*pi*c1*b))
  54. 3110 print"[215]iderstand [210]2 :";r2;"[207]hm"
  55. 3120 r3=int(1/(pi*c1*b))
  56. 3130 print"[215]iderstand [210]3 :";r3;"[207]hm"
  57. 3140 c1=c1*10^9
  58. 3150 print"[203]ondensator [195]1 :";c1;"n[198]"
  59. 3160 print"[203]ondensator [195]2 :";c1;"n[198]"
  60. 4000 print"[215]ollen [211]ie neue [215]erte eingeben ([202]/[206]) ?"
  61. 4010 geta$:ifa$=""then4010
  62. 4020 ifa$="j"thenrun
  63. 4030 end
  64.